home *** CD-ROM | disk | FTP | other *** search
/ PC Welt 2001 August / PC-WELT 8-2001.ISO / software / prx / boot / multi.exe / tools / image.vbs < prev    next >
Encoding:
Text File  |  2001-05-17  |  4.1 KB  |  110 lines
  1. Set MyShell = CreateObject("WScript.Shell")
  2. Set MyFiles = CreateObject("Scripting.FileSystemObject")
  3.  
  4.  
  5. '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  6.  
  7. 'Kommentieren Sie mit einem ' (Hochkomma) am Anfang die folgende Zeile aus wenn sie die Anpassungen vorgenommen haben
  8.  
  9. Meld=msgbox("Sie mⁿssen vor dem Start in dem Skript einige Punkte anpassen" +VBCR & "╓ffnen Sie dazu die IMAGE.VBS mit einem beliebigen Editor")
  10. LW=Myfiles.GetAbsolutePathName("image.vbs")
  11. VerzPfad = mid(LW, 1, len(LW)-15)
  12.  
  13. '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  14.  
  15. 'Folgende Parameter mⁿssen Sie anpassen. 
  16. 'Er gibt die Hardware-Adresse des Brenners an CDRECORD.EXE weiter.
  17. 'Der Syntax folgt den SCSI-ID Konventionen, gilt aber auch fⁿr IDE Laufwerke.
  18. 'Sie bekommen diesen Wert, wenn Sie zunΣchst CDRECORD.EXE mit dem Parameter "-scanbus" starten.
  19. 'Bei cdspeed Σndern Sie den numerischen Wert entsprechend der m÷glichen Schreibgeschwindigkeit Ihres Brenners
  20.  
  21. cdrdevice = "1,0,0"
  22. cdspeed = "speed=12 "
  23.  
  24. '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  25.  
  26. 'Folgende Werte sollten Sie nicht verΣndern
  27.  
  28. systemid = Chr(34) & "PC with El Torito BIOS" & Chr(34)
  29. volsetid = Chr(34) & "Set 1" & Chr(34)
  30. mkisofsargs = "-N -l -no-iso-translate -relaxed-filenames -sysid " & systemid & " -volset " & volsetid 
  31. cdrecordargs = " -data -eject -verbose "
  32.  
  33.  
  34. '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  35.  
  36. 'Diese Werte sind optional und Sie k÷nnen Sie beliebig anpassen 
  37. 'Wenn diese EintrΣge nicht auf CD gebrannt haben wollen, 
  38. 'entfernen Sie die Variablen aus der Befehlszeile weiter unter
  39.  
  40. 'Der Name der CD, wie sie im Explorer erscheint, bis zu 32 Zeichen m÷glich 
  41. volumeid = Chr(34) & "BOOTCD" & Chr(34)
  42.  
  43. 'Der Name des Erstellers der CD, bis zu 128 Zeichen m÷glich
  44. preparer = Chr(34) & "Ich wars!" & Chr(34)
  45.  
  46. 'Der Name des Herausgebers, bis zu 128 Zeichen m÷glich
  47. publisher = Chr(34) & "Von mir gebrannt" & Chr(34)
  48.  
  49. 'Die Tools mit dem die CD erstellt und gebrannt wurde
  50. applicationid = Chr(34) & "Erstellt mit MKISOFS/MKBOOTCD/CDRECORD" & Chr(34)
  51.  
  52. 'Zusammenfassen aller optionalen Variablen 
  53. optargs = "-volid " & volumeid  & " -p " & preparer & " -P " & publisher & " -A " & applicationid
  54.  
  55. '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  56.  
  57. datpfad = verzpfad & "disk"
  58.  
  59. tp = verzpfad & "tools\"
  60.  
  61. if (myfiles.FileExists(Verzpfad & "tools\imgpath.txt")) then
  62. Info = msgbox("Wollen Sie das vorhandene Image brennen (Ja) oder ein neues erstellen (Nein)?", 3, "Image brennen?")
  63.     if Info = 2 then
  64.     Wscript.Quit
  65.     elseif Info = 6 then
  66.     Set IP = myfiles.OpenTextFile(Verzpfad & "\tools\imgpath.txt", 1, False)
  67.     iso = IP.ReadAll
  68.     IP.Close
  69.     msgbox tp & "CDRECORD.EXE " & "dev=" & cdrdevice & cdrecordargs & cdspeed & iso
  70.     MyShell.Run(tp & "CDRECORD.EXE " & "dev=" & cdrdevice & cdrecordargs & cdspeed & iso)
  71.     MyFiles.DeleteFile(Verzpfad & "\tools\imgpath.txt")
  72.     wscript.quit
  73.     end if
  74. end if
  75.  
  76.  
  77. isopfad = InputBox("Geben Sie den Pfad ein, unter dem das zu erstellende Image gespeichert werden soll.", "Pfad des Images", Verzpfad & "iso\")
  78.     if isopfad = "" then
  79.     wscript.quit
  80.     else
  81.     
  82.     iso=Isopfad & "bootiso.iso"
  83.         if not (myfiles.FolderExists(isopfad)) then
  84.         myfiles.CreateFolder(isopfad)
  85.         end if
  86.     end if
  87.  
  88. '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  89.  
  90. 'Dieser Befehl erstellt zunΣchst das ISO Image
  91. 'Wenn Sie die Optionalen EintrΣge nicht auf CD gebrannt haben wollen 
  92. 'entfernen Sie aus der nΣchsten Zeile folgende Zeichenkette:
  93. '" " & optargs
  94.  
  95. Set mkisobat = MyFiles.CreateTextFile("c:\mkisobat.bat",True)
  96. mkisobat.WriteLine tp & "MKISOFS.EXE " & mkisofsargs & " " & optargs & " " & "-o" & " " & iso & " " & datpfad
  97. mkisobat.WriteLine tp & "MKBOOTCD.EXE " & iso & " -" & " < " & Verzpfad & "tools\mkbootcd.txt"
  98. 'mkisobat.Writeline "del c:\mkisobat.bat"
  99. mkisobat.Close
  100. i = MyShell.Run("c:\mkisobat.bat", 1, True)
  101.  
  102. JaNein = MsgBox("Image erstellt! Wollen Sie mit dem Brennen beginnen?", 4, "Multiboot CD brennen")
  103.     If JaNein = 6 Then
  104.     MyShell.Run(tp & "CDRECORD.EXE " & "dev=" & cdrdevice & cdrecordargs & cdspeed & iso)
  105.     ElseIf JaNein = 7 Then
  106.     Set PF = myfiles.OpenTextFile(Verzpfad & "\tools\imgpath.txt", 2, True)
  107.     PF.Writeline iso
  108.     PF.Close
  109.     WScript.Quit
  110.     End If